//TBWM01AD JOB (0371,PROD,,999),'71P000',CLASS=B,NOTIFY=TBWM01A,
//         MSGCLASS=Q,REGION=1300K
/*ROUTE PRINT LOCAL
//**********************************************************
//SPUFI OUTPUT CLASS=A,COPIES=1,DEST=LOCAL,
//             FORMS=,FCB=,UCS=
//SPUFIGO  EXEC PGM=IKJEFT01,
//     DYNAMNBR=30,
//       REGION=3M
//STEPLIB  DD  DISP=SHR,DSN=DSN1.DB2.PROD.DSNLOAD
//SYSUDUMP DD  SYSOUT=*
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSDBOUT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSTSIN  DD *
DSN SYSTEM(DB2P)
DCLGEN TABLE(PQAD2LO.VWIVCPTD) LIBRARY('TBWM01A.TEST.JCL(DCL001)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.DPAC)     LIBRARY('TBWM01A.TEST.JCL(DCL002)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.DPAC_CONT) LIBRARY('TBWM01A.TEST.JCL(DCL003)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.ORGU)     LIBRARY('TBWM01A.TEST.JCL(DCL004)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.SOS_GRP_EXT_INTF) -
                               LIBRARY('TBWM01A.TEST.JCL(DCL005)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.SOS)      LIBRARY('TBWM01A.TEST.JCL(DCL006)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.IH_STIT)  LIBRARY('TBWM01A.TEST.JCL(DCL007)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.IH_ITMG)  LIBRARY('TBWM01A.TEST.JCL(DCL008)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.AUTH_SOS) LIBRARY('TBWM01A.TEST.JCL(DCL009)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
DCLGEN TABLE(PQAD2LO.DPAC_TO_STIT) -
                               LIBRARY('TBWM01A.TEST.JCL(DCL010)') -
DCLGEN TABLE(PQAD2LO.STIT_ITMG_IN_STRC) -
                               LIBRARY('TBWM01A.TEST.JCL(DCL011)') -
  ACTION(REPLACE) LANGUAGE(COBOL) APOST
//SYSIN    DD *
/*
